home *** CD-ROM | disk | FTP | other *** search
/ Freelog 117 / FreelogNo117-OctobreNovembre2013.iso / Programmation / jedit / jedit5.1.0install.exe / {app} / macros / Emacs / Emacs_Insert_File.bsh < prev    next >
Text File  |  2013-07-28  |  569b  |  22 lines
  1. /**
  2.  * Insert the contents of a file at the caret. Emulates the Emacs
  3.  * "insert-file" command (normally bound to "Ctrl-X i").
  4.  */
  5. source (MiscUtilities.constructPath(dirname(scriptPath), "EmacsUtil.bsh"));
  6.  
  7. void emacsInsertFile()
  8. {
  9.     caret = textArea.getCaretPosition();
  10.     
  11.     path = buffer.getPath();
  12.     if (path == null)
  13.         path = ".";
  14.     else
  15.         path = dirname (path);
  16.     result = GUIUtilities.showVFSFileDialog(view, path, VFSBrowser.OPEN_DIALOG, false);
  17.     if (result != null)
  18.         buffer.insertFile (view, result[0]);
  19. }
  20.  
  21. emacsInsertFile();
  22.